VB - [Microsoft][ODBC驱动程序管理器]未发现数据源名称并且未指定默认驱动程序

来源：百度知道 编辑：UC知道 时间：2024/09/23 09:28:55
[Microsoft][ODBC驱动程序管理器]未发现数据源名称并且未指定默认驱动程序

Frm_UpdatePass（修改密码）和Frm_LiulanUser（浏览用户）这两个窗体运行是都出现这种情况
但是 点击确定后可以运行
先运行Frm_UpdatePass
再运行Frm_LiulanUser
两个结果都能显示
但先运行Frm_LiulanUser时只有空表，无数据

两不分代码如下：
Frm_UpdatePass
----------------------------------------------
Dim myCon As New ADODB.Connection
Dim myRs As New ADODB.Recordset
Private Sub Command1_Click()
Dim OldPass, NewPass, AgainPass As String
OldPass = Trim(Text2.Text)
NewPass = Trim(Text3.Text)
AgainPass = Trim(Text4.Text)

If NewPass <> AgainPass Then
MsgBox "两次输入的密码不一致，请重输！", vbOKOnly, "警告"
Text2.SetFocus
Exit Sub
End If

myCon.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=信息.mdb;"
myRs.CursorType = adOpenKeyset
myRs.LockType = adLockOptimistic

myRs.Open "select * from 用户资料 where 用户名='" & Trim(Combo1.Text) & "&#

在设计界面中,将Adodc1属性中的DATABASENAME置空,您可能在那里曾经设置过别的数据库连接

**********************************
每个控件都有很多属情,这个您应该知道吧,比如窗体form1的标题在设计时是可以在VB的属性窗口中改的,同样,数据控件也是这样,您打开出错的窗体,在窗体上的数据控件上点一下选取中,然后在右边的属性窗口中就可以看到它的属性及设置的值了,其中有一项应该是数据库名称DATABASENAME,我估计那里面有内容,你把它的属性值删除成空的,应该就可以了

1)混用ADO数据对象和ADO数据控件(即Adodc)
2)数据库连接句中的数据库路径未指明
解决方法:
按ADO数据控件(即Adodc)连接数据库
Frm_UpdatePass 中
Private Sub Form_Load()
Frm_LiulanUser.Adodc1.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\信息.mdb;Persist Security Info=False"
Frm_LiulanUser.Adodc1.RecordSource = "select * from 用户资料 order by 身份"
Frm_LiulanUser.Adodc1.Refresh
Load Frm_LiulanUser
Dim a As String
Do While Not Frm_LiulanUser.Adodc1.Recordset.EOF
a = Frm_LiulanUser.Adodc1.Recordset.Fields(0)
Combo1.AddItem a
Frm_LiulanUser.Adodc1.Recordset.MoveNext
Loop
Combo1.Text = ""